求一个free pascal智障级游戏答:hp,mp,money,ql,dengji,fy,atc,mc,hpmax,mpmax,zhiye,jy,mcp:integer;procedure map;begin randomize;m:=random(10);n:=random(10);writeln('***地图***');for i:=1 to 10 do begin for j:=1 to 10 do begin if (i=m)and(j=n)then begin ma[i,j]:=9;write('9 ');end ...